home *** CD-ROM | disk | FTP | other *** search
/ Everything For A Hacker / 19990506-[HACK].iso / SECURE / CRYPT / GOST.ZIP / SIMPLE.INC < prev    next >
Text File  |  1995-01-27  |  1KB  |  46 lines
  1. ;----------------------------------------------------
  2. ; ê¡ΓÑαΣÑ⌐ß¡δ⌐  ¼«ñπ½∞  ¿º¼Ñα¿Γѽ∩  íδßΓα«ñÑ⌐ßΓó¿∩.
  3. ; öπ¡¬µ¿∩ simple.
  4. ; æ«ßΓáó¿½ Ç.₧.é¿¡«¬πα«ó, ú.î«ß¬óá, ∩¡óáα∞ 1995 ú.
  5. ; æó«í«ñ¡«Ñ ¿ß»«½∞º«óá¡¿Ñ ¿ ¬«»¿α«óá¡¿Ñ.
  6. ;----------------------------------------------------
  7. ; Ä»αÑñѽѡ¿Ñ τ¿ß½á ó맮ó«ó ΓÑßΓ¿απѼ«⌐ Σπ¡¬µ¿¿
  8.         calls=  20h
  9.  
  10. ; îá¬α«ß »«ñú«Γ«ó¬¿ ó맮ó«ó
  11. Initialise MACRO
  12.         extrn   simple:proc
  13.     mov    DX,offset @code:InitMes
  14.     mov    AH,09h
  15.     int    21h
  16. ENDM
  17.  
  18. ; è«ñ, ß¬«α«ßΓ∞ ¬«Γ«α«ú« ¿º¼Ñα∩ÑΓß∩
  19. Testing MACRO
  20.         mov     AX,1000h
  21.         push    AX
  22.         push    CS
  23.         mov     AX,offset @data:cht
  24.         push    AX
  25.         push    CS
  26.         mov     AX,offset @data:area
  27.         push    AX
  28.         push    CS
  29.         mov     AX,offset @data:key
  30.         push    AX
  31.         call    simple
  32.         add     SP,2*7
  33. ENDM
  34.  
  35. ; Ä»αÑñѽѡ¿Ñ ñá¡¡δσ
  36. DefineData MACRO
  37. key     dd      32      DUP (0)
  38. cht     db      1024    DUP (0)
  39. syn     dd      2       DUP (0)
  40. area    db      8000h   DUP (0)
  41. InitMes db      "ÿ¿Σα«óá¡¿Ñ 1 MÑúáíá⌐Γá "
  42.         db      "»α«ßΓ«⌐ ºá¼Ñ¡«⌐: $"
  43. ENDM
  44.  
  45.  
  46.